SCREEN 1,640,220,3,2
WINDOW 1," Quizmaster    V2.0                                               Frageneditor",,0,1
PALETTE 0,0,0.3,0:PALETTE 1,0,0.5,0:PALETTE 2,1,1,1
nr=1:COLOR 2:DIM a$(4):DIM ant$(4):a=1
LOCATE 2,2:PRINT "Alle Einstellungen werden über die Cursortasten (<- und ->) durch-"
PRINT " geführt und mit [RETURN] bestätigt.":PRINT:PRINT
PRINT "                                                   {Irgendeine Taste}
Lpo:
a$=INKEY$:IF a$="" THEN Lpo
CLS
Loopy:
SOUND 300,1:SOUND 400,1:SOUND 600,1:SOUND 500,1:SOUND 600,1
Loop:
LOCATE 2,3:PRINT "Frage.Nr. > "nr
PRINT
Loop1: 
a$=INKEY$:IF a$="" THEN Loop1
IF a$=CHR$(30) THEN nr=nr+1:GOTO Loop
IF a$=CHR$(31) THEN nr=nr-1:IF nr=0 THEN nr=1:SOUND 200,1:SOUND 300,1
IF a$=CHR$(31) THEN GOTO Loop
IF a$=CHR$(28) THEN nr=nr+10
IF a$=CHR$(29) THEN nr=nr-10:IF nr<1 THEN nr=1
IF a$=CHR$(28) OR a$=CHR$(29) THEN GOTO Loop
IF a$=CHR$(13) THEN GOTO Wexel
GOTO Loop1

Wexel:
a$=STR$(nr)
nr$=RIGHT$(a$,(LEN(a$)-1))
GOSUB Loop2
GOSUB Loop3
GOSUB Loop4
GOTO  Loop5

Loop2:
LOCATE 5,1
INPUT "  Frage >",frage$
IF frage$="" OR frage$=" " THEN Loop2
IF LEN(frage$)>65 THEN LOCATE 5,10:PRINT "                                                                           ":GOTO Loop2
RETURN
Loop3:
LOCATE 8,1
INPUT " 1. Antwort >",ant$(1)
PRINT
INPUT " 2. Antwort >",ant$(2)
PRINT
INPUT " 3. Antwort >",ant$(3)
PRINT
INPUT " 4. Antwort >",ant$(4)
RETURN
Loop4:
LOCATE 17,2
INPUT "Nr. der richtigen Antwort >",wahr$
IF wahr$<>"1" AND wahr$<>"2" AND wahr$<>"3" AND wahr$<>"4" THEN GOTO Loop4
RETURN
Loop5:
LOCATE 19,2
PRINT " Alles Korrekt (J/N) ?"
Loop0:
a$=INKEY$:IF a$="" THEN Loop0
IF a$="n" THEN GOTO Verbessern
daten$=frage$+"?"+ant$(1)+"?"+ant$(2)+"?"+ant$(3)+"?"+ant$(4)+"?"+wahr$
a$="df0:Fragen/QM."+nr$
OPEN a$ FOR OUTPUT AS 1
PRINT #1,daten$
CLOSE 1
LINE (0,140)-(640,200),0,bf
GOSUB Cle1
GOSUB Cle2
GOSUB Cle3
GOTO Loopy                  

Verbessern:
a$(1)="Die Frage"
a$(2)="Die Antworten"
a$(3)="Die Nummer"
a$(4)="Nichts"
LOCATE 21,4
PRINT " Was wollen Sie verbessern ?"
Ver1:
LOCATE 21,35:PRINT a$(a)"           "
Ver2:
a$=INKEY$:IF a$="" THEN Ver2
IF a$=CHR$(31) THEN a=a-1:IF a=0 THEN a=4
IF a$=CHR$(30) THEN a=a+1:IF a=5 THEN a=1
IF a$=CHR$(30) OR a$=CHR$(31) THEN GOTO Ver1
IF a$=CHR$(13) THEN GOTO Ver3
GOTO Ver2
Ver3:
LOCATE 19,2:PRINT "                                                   "
LOCATE 21,4:PRINT "                                                              "
IF a=3 THEN GOSUB Cle3:GOSUB Loop4
IF a=2 THEN GOSUB Cle2:GOSUB Loop3
IF a=1 THEN GOSUB Cle1:GOSUB Loop2
GOTO Loop5
Cle1:
LOCATE 5,10:PRINT "                                                                            "
RETURN
Cle2:
LOCATE  8,14:PRINT "                                                    "
LOCATE 10,14:PRINT "                                                    "
LOCATE 12,14:PRINT "                                                    "
LOCATE 14,14:PRINT "                                                    "
RETURN
Cle3:
LOCATE 17,29:PRINT "          "
RETURN